tt a tt St Ht tt HH HH HH Ha 
tt a tt a a tt i 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


tt tt tt st 4 Ht Ht Ht Ht Ht Ht HH HH 
AAA a 
| LE) 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


(a 


j 
j 
| 
| 


*eF LLE®* 1 D*eMTHIMINO 


SOOoOooooooo 


oo 6806S ss 
oo coo oo 
oo oo os 
oo oo oo 
soo oo coo 
oo coo oo 
COOCCOOSSOO 
SSOSCOSOSOSOSSOO 
2222322222222= 
222222 2see22e 
2 
22 
zz 
2 
zz 
zz zeszzzz2z22 
SSESSSEEE22E22 
— asia, 
oxpone oe 


~~ —— 
~~ —o 
ZEST TE 
oe SS 
z= 
"cx 
z= 
== 
(Se eee eae eee a a 5 
= SS ee 
223222222727 2727777> 
93772377337 
em) 
27> 
"7 
27> 
bs gee 
27 
27> 
2707 
ZETETITITIIITIIIIITT 
== 
z= 
z= 
z= 
z= 
$22232333223232532 
ZrtrrrrzrrIrIrIrIITT 
odes 
ad 
oe 
ee 


[ola neal adi eel anal aed ani aetandcands oalaetand 
ee ee oe eo 
ad 


nw MmWnw 
nw NMNNMMM 
“nw “nw mn 
nw nw mown 
nw “nw nn 
nw nw nn 
"nw nw mn 
nn nw nn 
MNNM an 
ANNNM an 
a amd 
pian te 
tt nt ne nd ae ne et Od at nt 
St ad Od Od Od Od Od Od Od Od Od 
pore me 
“—— —— 
ad 
a4 
a4 
a4 
a4 
ee) 
a4 
a4 
ee ree | 
a ad ed ad od od od I I I I 


16-SEP-1984 01:45:58 VAX/VMS Macro v04-00 Page 0 


MTHSJMINO JMINO and AJMINO functions 

Table of contents | 
2) HISTORY ; Detailed Current Edit History 
(3) DECLARATIONS 
(4) MTHSJMINO, MTHSAJMINO | 


MTHSJMINO JMINO and AJMINO functions 16-SEP-1984 01:45:58 VAX/VMS Macro v04-0 Page 1 | 
1-002 6-SEP ets 7 1:26: 3 MTHRTL. Bae ee TM OMINO MAR: 1 ° (1) 


TITLE yb) Jnl INO and AJMINO functions 
-IDENT /1-002/ 3; File: MTHJMINO.MAR 


MARAAAAAAAAARAAAASLA LASALLE ALLA A SARE A ALARA LAER ELAR ASAE EE EEE SESE REET EERE ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS Agta UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
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-@ ® 
*® ® 
*® ® 
*® «© 
® o 
had & 
*® * 
*® ® 
& ® 
* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. ‘ 
** * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

® 
*® ® 
*® ® 
*® ® 
*® x 
*® ® 
** * 
** ® 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


RERAKAAAAAAATATAAAAAEAAAAAAAAAAAARAAAAAAARAAAAAAAAAAAEARAAAAAAAAEARAEREREAEREE 


0 . 

. s FACILITY: MATH LIBRARY 

0 : "ABSTRACT: 

0 This module contains the minimum value functions for 
Longword arguments. 
0 

0 ‘oo 

0 ° 

; ; VERSION: 0 

; HISTORY: 

0 ; AUTHOR 


Jonathan M. Taylor, 12-JUL-77: Version 0 
; MODIFIED BY: 
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HISTORY 


3; Deta 


? 


ed ya E Edit Toke: "S28 Pa} 984 94558538 f 


AX/VMS Macro V04- 
MTHRTL.SRCIMTHJMI 


-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 0 of MTHJMINO 
1-9 - Fix access violation. TNH 16-Aug-78 


1-002 = Add ‘'_"' to the PSECT glrecties. JBS 2 


-001 - yegene version number and copyright notice. JBS 16-NOv 


2-D DEC 78 


Sete 


80 MAR: 1 — 3) 


-78 
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MTHSJMINO JMINO and AJMINO functions 16-SEP-1984 01:45:58 VAX/VMS M v04-0 P 
003 DECLARATIONS Breer r158e fi i56.80 PATUNTE eReTeTNoRIon.mar:1 2% @% 
59 ~SBTTL DECLARATIONS 
61 ; 
66 : INCLUDE FILES: 
65 ; oerr.mar 
64 ; 
o 
67 : EXTERNAL SYMBOLS: 
09 é ; NONE 
$0 
00 72 : MACROS: 
4 73; NONE 
00 74; 
44 ie 
$098 77 : PSECT DECLARATIONS: 
00009000 28 .PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
itd 80 ; 
0000 81 : EQUATED SYMBOLS: 
0000 ; NONE 
0000 : 
0000 
0000 


t OWN STORAGE: 
; NONE 


S3ss. 
oo 

ooo 
ooo 
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MTHSJMINO JMINO and AJMINO functions -SEP-1984 01:45: AX/VMS Macro v04-0 P 
1-002 MIHSIMING, MIHSAJMING eee 188s 1 isaise PATAN TS eaesarMonigo.mars1 ase 
9 -SBTTL MTHSJMINO, MTHSAJMINO 
: iy ro DESCRIPTION: 
4; all routine MINL to apeeyee the minimum of n arguments, n is 
95 ; greater than or equal t 
38 : eturn the result converted to the proper type. 
98 : 
3 3; CALLING SEQUENCE: 
100 ; Minimum.wl.v =MTHSJMINO ({arg.rl.r)) 
8 ! 1 : Sd ety wf.v =MTHSAJMINO ({arg. ri.r}) 
a0) 188 
000 105 : INPUT PARAMETERS: 
44 196 : The n parameters are longword values and are call-by-reference. 
000 108: 
4 109 ; IMPLICIT INPUTS: 
444 1 : NONE 
000 11 : OUTPUT PARAMETERS: 
LEE thats 
000 115 : IMPLICIT OUTPUTS: 
000119: — 
9000 118 : COMPLETION CODES: 
$000 120 _— 
900 121 : SIDE EFFECTS: 
4 1 § : NONE 
000 123 ; 
44 124 ;-- 
Be ! 5 
3 ie 
0000 One 129 ENTRY MTHSJMINO, aM<> 
09 be 004 : ? aoe MINL ; RO = min arg 
005 1 
0098 3 1 5 -ENTRY MTHSAJMINO, “M<> 
06 =«#«1 134 $B NL ; RO = min arg 
50 50 of H ! 5 gyrte RO, RO : REAL* 4 it 
ae 
; 139 MINL returns the smallest of the INTEGER*4 args. 
fe be 
D 146 MINL: 
51 C OA 14 MOVZBL (AP), R1 3; R1 = number of args 
Bc D5 1 144 TSTL (AP)+ 3; AP => first arg a 
50 C dO 1 145 1$ MOVL oars, RO : get trial min 
08 11 1 146 RB $ : check arg count 
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MTHSJMINO JMINO and AJMINO function 16-SEP-1984 01:45: AX/VMS Macro V04-0 P 
htt WIHSJMING, MIHSAUMINO ns or8Eb=] 982 91:58:82 UMTARTe.ceesariomino.mar;1 29° (2, 
50 00 a 2 17 167 28: CMPL  Saaalhdtea ; if this arg is less then trial min 
F 9 1B 148 BLSS 1 ; then it becomes trial min 
gf D 1D 149 TSTL (AP)+ ; else ignore it 
F5 51—SoF 1F §6150 3$ SOBGTR R1, 2$ 3 check arg count 
0 0 13 RSB 
H 
7 
0 154 -END 


—-z 


MTHSJMINO JMINO and AJMINO functions 19° $6O 71386 91 45 ; 
Symbol table 6-SEP-1984 11:26 
al & 1 
PiMbamino RRRHEED Rh 
MTHSJMINO RG 1 

eee ocew ewe mec ero eoce + 

: Psect synopsis ! 

wow eser cen aco ecea + 
PSECT name Allocation PSECT No. Attributes 
- ABS. £880 0808 ( 9.3 99 ( 9.) NOPIC USR CON’ ABS 
_MTHSCODE 00000 : Bor CEE Y2 PIC USR CON” REL 

pment amen ero e mane one nome + 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 3 Oo: 0:00.13 90:00:00 .73 
Command processing 12 0: 808-68 88 80: -05 
Pass 69 88? B0: 4 8 2 1.40 
Symbol table sort 0 4 FS 0:00:00.06 
Pass 2 4 88: 86:00" 4 0:00:01.81 
Symbol table output 00:00: 3-8) Bs So 
Psect synopsis output 00:00:00.04 0:00:00.11 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 270 00:00:01.58 00:00:07.24 
The working set Limit was 750 pages. 


1615 bytes (4 pages) of virtua 
There were 10 


pages of symbol table space allocated to hold 


memory were used to buffer the intermediate 


154 source Lines were read in Pass 1, prodyc ing 13 object records in Pass 2 
mac 


0 pages of virtual memory were used to define 


Macro Library name 


ros. 


ener er eee ese eee ene coe see wet 


_$255$DUA28: CSYSLIBJSTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LISS$:MTHJMINO/OBJ=O0BJ$:MTHJMINO MSRC$:MTHJMINO/UPDATE=(ENHS:MTHJMINO) 


gore. 
3 non-local and 3 local symbols. 
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LCL NOSHR NOE 
LCL SHR EXE 


AX/VMS 
MTHRTL. 


Ma 
SR 


cre yee 
JMTHJMINO.MAR; 1 
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XE NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC LONG 
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